home *** CD-ROM | disk | FTP | other *** search
/ Selling To the Government / Selling to the Government.iso / aladdin / script.txt < prev    next >
Text File  |  1993-08-28  |  2KB  |  81 lines
  1. SCRIPT 3 Late Nite Auto-pass
  2. ECHO OFF
  3. :GET_PASS
  4. CLEAR
  5. NOTE ""
  6. NOTE "      Perform Unattended Late Nite Auto-pass"
  7. NOTE ""
  8. Note "Perform Auto-pass 1 or 2?  (Press <ESC> to quit)"
  9. GETKEY 0
  10. IF STRING 0 IS "^["
  11.   GOTO END
  12. ENDIF
  13. IF STRING 0 IS "1"
  14.   GOTO GET_TIME
  15. ENDIF
  16. IF STRING 0 IS "2"
  17.   GOTO GET_TIME
  18. ENDIF
  19. GOTO GET_PASS
  20. :GET_TIME
  21. NOTE ""
  22. Note "Enter Time To Begin Auto-pass %0 (24-hour format HH:MM)"
  23. NOTE "HH:MM       (press <RETURN> for default time shown)"
  24. SETSTRING 1 "02:#N"
  25. GETSTRING 1
  26. IF STRING 1 HAS ":"
  27. ELSE
  28.   BEEP
  29.   BEEP
  30.   NOTE "You Forgot the Colon (:)!"
  31.   GOTO GET_TIME
  32. ENDIF
  33. NOTE ""
  34. NOTE "Do you wish to continue Auto-pass %0 if is determined that "
  35. NOTE "log on has occured during Prime Time? (Y/N)?"
  36. GETSTRING 2
  37. IF STRING 2 IS "Y"
  38.   SETSTRING 2 "y"
  39. ENDIF
  40. CLEAR
  41. NOTE ""
  42. NOTE "Unattended Auto Passes should not be left unattended for   "
  43. NOTE "more than 1/2 hour past their expected completion, UNLESS  "
  44. NOTE "you are confident of a trouble free connection between your"
  45. NOTE "modem and GEnie.  Interference from occurrences such as    "
  46. NOTE "line noise can produce unexpected results.                 "
  47. NOTE ""
  48. NOTE ""
  49. NOTE "         Waiting Until %1 to Begin Auto-pass %0"
  50. NOTE "                (press any key to abort)"
  51. WAITUNTIL %1
  52. IF SUCCESS
  53.   LOG ON
  54.   IF STRING 2 IS "y"
  55.   ELSE
  56.   SENDLINE "TIMEP"
  57.   WAITFOR "Time:"
  58.   IF CURRENTLINEHAS "P Time:"
  59.     HANGUP
  60.     BEEP
  61.     CLEAR
  62.     NOTE ""
  63.     NOTE ""
  64.     NOTE "        Unattended Auto-pass was aborted because it was"
  65.     NOTE "        detected that log on occured during Prime Time."
  66.     NOTE ""
  67.     NOTE "               Press any key to continue..."
  68.     WAITFORKEYPRESS
  69.     GOTO END
  70.   ENDIF
  71.   WAITFORPROMPT
  72.   ENDIF
  73.   PERFORM %0
  74. ELSE
  75.   BEEP
  76.   NOTE "SCRIPT ABORTED!"
  77.   PAUSE 3
  78. ENDIF
  79. :END
  80. ENDSCRIPT
  81.